home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / tiffload / tiffload.bas next >
BASIC Source File  |  1995-01-09  |  3KB  |  73 lines
  1. 10 '
  2. 20 '    フリコレＴＩＦＦローダー
  3. 30 '
  4. 40 '初期設定
  5. 50 CLEAR:SCREEN 0:COLOR 7,0,7:CLS:CONSOLE 0,20,2:DIM F2(49),F3$(49)
  6. 60 SCREEN@ 0:ON ERROR GOTO *ERROR
  7. 70 '始まり
  8. 80 PRINT "┌──────────────┐"
  9. 90 PRINT "│フリコレＴＩＦＦ画像ローダー│"
  10. 100 PRINT "│ＢＹ　ＨＩＷＡＴＡＳＨＩ　　│"
  11. 110 PRINT "└──────────────┘"
  12. 120 PRINT "ドライブを指定してください例 A ";:A$=INPUT$(1):PRINT A$
  13. 130 INPUT "パスを設定して下さい  例 \GRAPHICS\ ";B$
  14. 140 PRINT "”"+A$+":"+B$+"”以下のＴＩＦＦファイルをサーチします"
  15. 150 PRINT "ＯＫ？ (Y/N)":GOSUB *YN
  16. 160 IF C=0 THEN 120
  17. 170 '初期設定終わり
  18. 180 PRINT "～ＣＯＦＦＥＥ　ＢＲＥＡＫ～":FOR I=0 TO 49:F2(I)=3:NEXT
  19. 190 'メインプログラム
  20. 200 *MAIN
  21. 210 FILES A$+":"+B$,C,A&
  22. 220 IF A&(1)>2 THEN DIM F1$(A&(1)) ELSE PRINT "ファイルがありません"
  23. 230 FILES A$+":"+B$,N,F1$
  24. 240 FOR I=F2(Z) TO A&(1)
  25. 250 PRINT MID$(F1$(I),1,47)
  26. 260 IF MID$(F1$(I),10,3)="TIF" THEN GOSUB *TIFF
  27. 270 IF MID$(F1$(I),17,9)="--<DIR>--" THEN GOSUB *DOWN
  28. 280 NEXT
  29. 290 F2(Z)=3:Z=Z-1
  30. 300 IF Z<0 THEN END ELSE B$=F3$(Z):ERASE F1$:GOTO *UP
  31. 310 'ＴＩＦＦファイルのロード
  32. 320 *TIFF
  33. 330 PRINT "ＴＩＦＦファイルをサーチしました":PRINT "表示しますか？ (Y/N)"
  34. 340 GOSUB *YN
  35. 350 IF C=0 THEN RETURN
  36. 360 CONSOLE 0,0:Y=0:E$="":FOR H=1 TO 8
  37. 370 IF KMID$(F1$(I),H,1)=" " THEN H=8 ELSE E$=E$+KMID$(F1$(I),H,1):NEXT
  38. 380 CLS:LOAD@ A$+":"+B$+E$+".TIF"
  39. 390 C$=INPUT$(1):CLS:PRINT A$+":"+B$+E$+".TIF":C$=INPUT$(1)
  40. 400 CONSOLE 0,20:SCREEN@ 0:COLOR 7,0,7:CLS:PRINT A$+":"+B$+E$+".TIF":CLS
  41. 404 C$=INPUT$(1)
  42. 410 RETURN
  43. 420 '下がる
  44. 430 *DOWN
  45. 440 PRINT "このディリクトリの検索を行いますか？":GOSUB *YN
  46. 450 IF C=0 THEN RETURN
  47. 460 F2(Z)=I:F3$(Z)=B$:Z=Z+1:FOR H=1 TO 8
  48. 470 IF KMID$(F1$(I),H,1)=" " THEN H=8 ELSE B$=B$+KMID$(F1$(I),H,1)
  49. 480 NEXT:B$=B$+"\":ERASE F1$:GOTO *MAIN
  50. 490 '上がる
  51. 500 *UP
  52. 510 I=F2(Z):FILES A$+":"+B$,C,A&:DIM F1$(A&(1)):FILES A$+":"+B$,N,F1$
  53. 520 RETURN
  54. 530 'イエス・ノーの判断
  55. 540 *YN
  56. 550 C$=INPUT$(1):IF C$="N" OR C$="n" THEN C=0:RETURN
  57. 560 IF C$="Y" OR C$="y" THEN C=1:RETURN
  58. 570 PRINT "(Y/N)":GOTO *YN
  59. 580 'エラー・画面モード切り換えルーチン
  60. 590 *ERROR
  61. 600 IF ERL=380 AND ERR=112 AND Y<2 THEN Y=Y+1:SCREEN@ Y:RESUME
  62. 610 PRINT "エラーがありました";:X=0
  63. 620 IF ERL=210 AND ERR=72 THEN PRINT "ディスクの準備ができていません":X=1
  64. 630 IF ERL=230 AND ERR=63 THEN PRINT "指定のディリクトリがありません":X=1
  65. 640 IF ERL=210 AND ERR=60 THEN PRINT "そのドライブは設定されてません":X=1
  66. 650 IF ERL=380 THEN PRINT "ファイルのオープンに失敗しました":X=2
  67. 660 PRINT "何かキーを押して下さい":C$=INPUT$(1)
  68. 680 IF X=1 THEN RUN
  69. 690 IF X=2 THEN PRINT "リトライ？(Y/N)":GOSUB *YN
  70. 700 IF X=2 AND C=1 THEN RESUME
  71. 704 IF X=2 THEN PRINT "何かキーを押して下さい":RESUME NEXT
  72. 710 PRINT "番号～ ";ERR;"    行番は";ERL
  73.